home *** CD-ROM | disk | FTP | other *** search
- ;*************************************************************************
- ;* AmigaWriter CD-Installer Version 1.01 25 August 1998 *
- ;* *
- ;* ©1998 HAAGE & PARTNER Computer GmbH *
- ;* *
- ;* If you have any installer questions please let us know! *
- ;* *
- ;*************************************************************************
- ;
- ; $VER: AmigaWriter V1.01 Install Version 1.0 (25.08.98)
-
- (complete 0)
-
- ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
- ; Versionen.
-
- (set #amigawriter-version "Version 1.02")
- (set #amigawriter-date "(21.08.98)")
-
- ; // Die Dateigrößen
-
- (set #size-komplett 2) ; MByte CD-Installation
-
- ;====================================================================
- ; Initialisierungen
-
- ; --- English strings ---
-
- (set #yeskey "Yes")
- (set #nokey "No")
-
- (set #wrongos "\n Sorry, you will need OS2.04 or better\n")
-
- (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use AmigaWriter\n")
-
- (set #welcome (cat "\n\n"
- "Welcome to the installation of the new word processor AmigaWriter\n\n"
- ""#amigawriter-version " of "#amigawriter-date"\n\n"
- "This script copies the whole word processor an some\n"
- "new system librarys to your harddisk!\n\n"
- "© 98 HAAGE&PARTNER Computer GmbH\n"
- ))
-
- (set #install_wizardlib
- "Copying the Wizard.Library")
-
- (set #install_wizardlib_help
- "The Library makes very short programms!")
-
- (set #install_applib
- "Copying the Appmanager.Library")
-
- (set #install_applib_help
- "The Library makes very short programms!")
-
- (set #oldversion (cat "\n"
- "There is an old version of AmigaWriter on your\n"
- "harddisk!\n"
- "" (getassign "AmigaWriter") "\n"
- ))
-
- (set #oldversion_help (cat "\n"
- "Choose an option!\n"
- ""
- ))
-
- (set #new "New installation")
- (set #drueber "Update your existing version of AmigaWriter")
- (set #remove "Remove AmigaWriter")
-
- (set #chose_path (cat "\n"
- "Please chose a drive and folder for installation.\n"
- "A folder AmigaWrite will be generated automatically.\n"
- ))
- (set #chose_path_help "Please chose a path.")
-
- (set #fonterror (cat "\n"
- "FONTPROBLEM found:\n\n"
- "The following Compugrahic fonts:\n\n"
- "CGTimes, CGTriumvirate und LetterGothic\n\n"
- "must be installed.\n\n"
- "You can find these font on your Amiga system disks."
- ))
-
- (set #endsuccess "\n\nInstallation successfull")
-
- (if (= @language "deutsch") (
-
-
- (set #yeskey "Ja")
- (set #nokey "Nein")
-
- (set #wrongos "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
-
- (set #wrongcpu "\n Sorry, das AmigaWriter-Paket setzt eine 68020 CPU voraus!\n")
-
- (set #welcome (cat "\n\nWillkommen bei der Installation der neuen\n"
- "Textverarbeitung AmigaWriter.\n\n"
- ""#amigawriter-version " vom "#amigawriter-date"\n\n"
- "Dieses Skript kopiert die verschiedenen\n"
- "Dateien und Bibliotheken, aus denen sich AmigaWriter\n"
- "zusammensetzt auf Ihre Festplatte.\n\n"
- "© 98 HAAGE&PARTNER Computer GmbH\n"
- ))
-
- (set #install_wizardlib
- "Kopiere die Wizard.Library")
- (set #install_wizardlib_help
- "Sie ist für die sehr kurzen Programme verantwortlich!")
- (set #install_applib
- "Kopiere die Appmanager.Library")
- (set #install_applib_help
- "Sie ist für die sehr kurzen Programme verantwortlich!")
-
- (set #oldversion (cat "\n"
- "Auf Ihrer Festplatte befindet sich bereits\n"
- "eine Installation von AmigaWriter!\n"
- "" (getassign "AmigaWriter") "\n"
- ))
-
- (set #oldversion_help (cat "\n"
- " Wählen Sie einfach die bereits vorhandene\n"
- "Schublade an, wenn Sie AmigaWriter\n"
- "aktualisieren möchten!\n\n"
- "Ihr alten Voreinstellungen werden\n"
- "dadurch vermutlich ÜBERSCHRIEBEN!"
- ))
- (set #new "Neu installieren")
- (set #drueber "Update über bisherige Version installieren")
- (set #remove "Deinstallation - AmigaWriter entfernen")
- (set #chose_path (cat "\n"
- "Bitte wählen Sie ein Laufwerk oder/und eine Schublade für die Installation.\n"
- "Eine neue Schublade \"AmigaWriter\" wird automatisch generiert.\n"
- ))
- (set #chose_path_help "Please chose a path.")
-
- (set #fonterror (cat "\n"
- "FONTPROBLEM entdeckt:\n\n"
- "Es müssen die Compugraphic-Fonts:\n\n"
- "CGTimes, CGTriumvirate und LetterGothic\n\n"
- "zwingend installiert sein.\n\n"
- "Die Fonts gehören zum Betriebssystem. Sie werden Sie daher"
- " auf Ihrem Diskettensatz zum Betriebssystem finden\n"
- ))
-
- (set #endsuccess "\n\nInstallation erfolgreich beendet")
- ))
-
- (set #os-version (/ (getversion) 65536))
- (set #os-13 (< #os-version 36))
- (set #os-20 (>= #os-version 36))
- (set #os-21 (>= #os-version 38))
-
- ; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
-
- (set #wizardlib (tackon (pathonly @icon) "SYS-Libs/wizard.library"))
- (set #applib (tackon (pathonly @icon) "SYS-Libs/appmanager.library"))
- (set #awall (tackon (pathonly @icon) "AmigaWriter-SYS"))
- ;=====================================================================================
- ; // Beginn der Installation
- ;=====================================================================================
-
- ; ----------------------------- Prozeduren ------------------------------
-
- (Procedure @Make_Folder
- (
- (set #folder (tackon #folder "AmigaWriter"))
- (if (= (exists #folder) 0)
- (
- (makedir #folder (infos))
- )
- (
- (set #update 1) ; // Doch schon vorhanden!
- )
- )
- )
- )
-
- ; // wird min. unter 2.04 installiert ?
-
- (if (= #os-13 1)
-
- (
- (message #wrongos)
- (exit (quiet))
- )
- )
-
- (if (patmatch "68000|68010" (database "cpu"))
- (
- (message #wrongcpu)
- (exit (quiet))
- )
- )
-
- (onerror (
- (if (> @ioerr 0)
- (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
- )
- ))
-
- ; // Eine kleine Änderung to enable das script zu laufen (deutsch??).
-
- ;(run "ASSIGN ENV: WarpUP-WarpOS/ENV/ ADD")
-
- ; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.
-
-
- (message #welcome)
-
- ;(welcome)
-
- (complete 2)
-
- ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
-
- (set #folder "Work:")
- (set #update 0)
-
- (if (exists "AmigaWriter:" (noreq))
- (
- (set #update
- (askchoice
- (prompt #oldversion)
- (help #oldversion_help)
- (default 1)
- (choices
- #new
- #drueber
- ; #remove
- )
- )
- )
- )
- )
-
- (if (<> #update 0) ; // altes Assign benutzen wenn update oder remove
- (
- (set #folder (getassign "AmigaWriter"))
- )
- )
-
- (complete 30)
-
- (if (= #update 0)
- (
- (set ok 0)
- (while (not ok)
- (set #folder
- (askdir
- (prompt #chose_path)
- (help #chose_path_help) ; // Auswahl Hilfetext
- (default #folder)
- (disk)
- )
- )
-
- (@Make_Folder) ; // Automatisch neues Verzeichnis anlegen!
-
- (set #dir_error (cat "\n"
- "Your selection \"" #folder "\" is not a\n"
- "valid device or drawer!\n\n"
- "Select 'Show drives' to get an overview of all\n"
- "devices available on your Amiga.\n"
- "Please select one of the devices on top of\n"
- "the list.\n"
- "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
- "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
- "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
- "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
- ))
-
- (set #memory_error (cat "\n"
- "There is not enough free disk space at the\n"
- "device you have selected for the installation.\n\n"
- "Free diskspace " freediskspace "!\n"
- "Diskspace needed " size-komplett "!\n\n"
- "Please select a another device or harddisk!"
- ))
-
- (if (= @language "deutsch") (
-
-
- (set #dir_error (cat "\n"
- "Bei Ihrer Auswahl \"" #folder "\" handelt es \n"
- "sich nicht um eine gültige Schublade! \n"
- " \n"
- "Sie können über das Symbol 'Laufwerke anz.' \n"
- "(bzw. 'Show drives') eine Übersicht über alle \n"
- "Laufwerke Ihres Amiga anfordern; aus dieser \n"
- "Übersicht sollten Sie nur die oberen, nicht \n"
- "farblich gekennzeichneten Einträge auswählen. \n"
- "Über den Schalter \"Neue Schublade anlegen..\"\n"
- "können Sie ein neue Schublade erzeugen. Diese \n"
- "neue Schublade wird auf der Partition \n"
- "angelegt, die Sie soeben betrachten."
- ))
-
- (set #memory_error (cat "\n"
- "Auf der ausgewählten Festplattenpartition \n"
- "steht nicht genügend freier Speicher für die \n"
- "komplette Installation des Compilersystems zur\n"
- "Verfügung. \n"
- " \n"
- "Freier Speicher " freediskspace "! \n"
- "Benötigter Speicher " size-komplett "! \n"
- " \n"
- "Bitte wählen Sie eine andere Partition, auf \n"
- "der entsprechende Kapazitäten vorhanden sind!"
- ))
- ))
-
- (if (= @language "italiano") (
-
- (set #dir_error (cat "\n"
- "La vostra selezione (\"" #folder "\") non è\n"
- "un disco o un cassetto valido!\n\n"
- "Selezionate 'Dischi' per avere una lista dei\n"
- "dischi disponibili sul vostro Amiga.\n"
- "Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
- "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
- "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
- "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
- ))
-
- (set #memory_error (cat "\n"
- "Il disco che avete selezionato non ha\n"
- "abbastanza spazio libero.\n\n"
- "Spazio disponibile " freediskspace "\n"
- "Spazio richiesto " size-komplett "\n\n"
- "Provate a selezionare un altro disco."
- ))
- ))
-
- ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
- ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
- ; // kann die Auswahl-Schleife beendet werden.
- (if (or (or (or (<= (strlen #folder) 0) (= (substr #folder (- (strlen #folder) 1) 1) ":")) (= (exists #folder (noreq)) 0)) (= (getdiskspace #folder) -1))
- (message #dir_error) ; Fehler bei der Auswahl der Schublade
- ;else
- (
- (set freediskspace (getdiskspace #folder)) ; // Der freie Speicher auf diesem Medium
- (if (< freediskspace size-komplett)
- (
- (user 1)
- (message #memory_error) ; // nicht genügend freier Speicher
- )
- ;else
- (set ok 1)
- )
- )
- )
- )
- )
- )
-
-
-
- ; Libs auf die Platte kopieren
-
- (complete 50)
-
-
- (copyfiles
- (prompt #install_all)
- (help #install_all_help)
- (source #awall)
- (dest #folder)
- (all)
- (confirm)
- )
-
- (complete 70)
-
- (copylib
- (prompt #install_wizardlib)
- (help #install_wizardlib_help)
- (source #wizardlib)
- (dest "libs:")
- (confirm)
- )
-
- (complete 90)
-
- (copylib
- (prompt #install_applib)
- (help #install_applib_help)
- (source #applib)
- (dest "libs:")
- (confirm)
- )
-
- ;============= Startup ändern =====================================================
-
- (set #startuptemp (cat "\nASSIGN AMIGAWRITER: " #folder "\n"))
-
- (set #startup (cat "\n"
- "To get AmigaWriter work well there has to be made\n"
- "some changes to your User-Startup.\n\n"
- #startuptemp
- ))
-
- (set #endnow (cat "Installation of AmigaWriter V1.0 completed.\n"
- "When the lines:\n" #startuptemp "\ndo not appear\n"
- "in your Startup-Sequence or User-Startup,\n"
- "please do it manually.\n\n"
- "Remove all disks and start your new word processor.\n\n"
- "Best wishes..."
- "HAAGE & PARTNER"
- ))
-
- (if (= @language "deutsch") (
-
- (set #startup (cat "\n"
- "Um mit AmigaWriter richtig arbeiten zu können, muß \n"
- "eine Änderung an der User-Startup vorgenommen \n"
- "werden: \n"
- " \n"
- #startuptemp
- ))
-
- (set #endnow (cat "\n"
- "Installation Ihrer neuen Textverarbeitung AmigaWriter beendet.\n\n"
- "Falls die Zeile:\n" #startuptemp "\n"
- "nicht in Ihre User-Startup eingefügt wurde, \n"
- "dann holen Sie dies bitte nach. \n\n"
- "Entfernen Sie nun die Diskette aus Ihrem \n"
- "Laufwerk und starten Sie StormC. \n\n"
- "Wir wünschen Ihnen viel Erfolg!\n"
- ))
- ))
-
- (if (= @language "italiano") (
-
- (set #startup (cat "\n"
- "Per completare l'installazione dello AmigaWriter\n"
- "sono necessarie alcune modifiche alla User-Startup.\n\n"
- #startuptemp
- ))
-
- (set #endnow (cat "L'installazione dello AmigaWriter V1.0 è terminata.\n"
- "Se le righe\n" #startuptemp "\nnon compaiono nella Startup-Sequence\n"
- "o nella User-Startup, eseguitele manualmente.\n\n"
- "Rimuovete tutti i dischi e avviate lo AmigaWriter.\n\n"
- "Con i migliori auguri..."
- "HAAGE & PARTNER"
- ))
- ))
-
-
- (startup "AmigaWriter"
- (prompt #startup)
- (help #help-startup)
- (command #startuptemp)
- )
-
- (makeassign "AMIGAWRITER")
- (makeassign "AMIGAWRITER" #folder)
-
- (if (= (exists "Fonts:CGTimes.font") 0)
- (
- (message #fonterror)
- )
- )
-
- (if (= (exists "Fonts:CGTriumvirate.font") 0)
- (
- (message #fonterror)
- )
- )
-
- (if (= (exists "Fonts:LetterGothic.font") 0)
- (
- (message #fonterror)
- )
- )
-
- (if (= (exists "Fonts:CGTimes.otag") 0)
- (
- (message #fonterror)
- )
- )
-
- (if (= (exists "Fonts:CGTriumvirate.otag") 0)
- (
- (message #fonterror)
- )
- )
-
- (if (= (exists "Fonts:LetterGothic.otag") 0)
- (
- (message #fonterror)
- )
- )
-
- (complete 100)
-
- (exit #endsuccess (quiet))
-